2 POKE51201,0:POKE927,0:POKE1023,0:POKE53281,6:C$=CHR$(34)
3 PRINT"[147]"TAB(8)"[199]OING TO [204]OADSTAR [205]ENU...":IFJPTHENSYS50140:GOTO7
4 CLOSE15:OPEN15,8,15,"U;":INPUT#15,E,E$:DJ$=RIGHT$(E$,4):CLOSE15
5 IFDJ$="OK"ORDJ$="1541"THENJP=-1:IFPEEK(49152)=24ANDPEEK(50116)=28THEN3
6 POKE49155,96
7 PRINT"L[207]"C$"PRE*"C$",8"
8 PRINT"RUN";
10 POKE631,13:POKE632,13:POKE198,2:END